home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1149 < prev    next >
Encoding:
Text File  |  1994-01-25  |  547 b   |  35 lines
  1. supdict begin
  2. /teethsize 
  3. { dy teeth div } def
  4. /drawtooth 
  5. { dx teethsize 2 div rlineto
  6. dx neg teethsize 2 div rlineto } def 
  7. /teethloop 
  8. { teeth { drawtooth } repeat } def
  9. /sfx 
  10. { x1 x2 add dx div } def
  11. /sfy 
  12. { y1 y2 add dy div } def
  13. end 
  14. /tigerteeth 
  15.  {
  16.  supdict begin  
  17.  q newinside 
  18.  /color xdf
  19.  colorchoice    
  20.  /color xdf  
  21.  /angle xdf   
  22.  /teeth xdf  
  23.  
  24.  
  25.  dx 2 div dy 2 div translate
  26.  angle rotate
  27.  sfx sfy scale
  28.  /xstart dx 2 div neg def
  29.  /ystart dy 2 div neg def
  30.  backgnd 
  31.  colorchoice  
  32.  xstart ystart m teethloop fill  
  33.  Q end
  34.  } def